      SUBROUTINE COPYR
C
C     ******************************************************************
C
      IMPLICIT NONE
C
      INCLUDE 'parameter.h'
C
      INCLUDE 'fileio.h'
C
C     O~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~O
C
      WRITE(OUT,1000)
C
C     O~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~O
C
C     ___ Format statements ___
C
 1000 FORMAT(T5,46("-"),/,
     $       T5,("-"),44X,("-"),/,
     $       T5,("-"),15X,'PROGRAM MolSOC',15X,("-"),/,
     $       T5,("-"),16X,'Version 0.1',17X,("-"),/,
     $       T5,("-"),10X,'AUTHOR: Sandro G. Chiodo',
     $       10X,("-"),/,T5,("-"),44X,("-"),/,
     $       T5,46("-"),/)
C
C     O________________________________________________________________O
C
      END SUBROUTINE COPYR
